10 REM** SUPER DISK EDITOR V2 **
20 REM**     JOERG KRANZ      **
30 REM** FREEWARE 1987/1994   **
31 REM**     C=64 + 1541      **
33 REM** NUR FUER ROCKFORD-FD **
35 CLOSE1:D=8
40 PRINT"[147]":POKE53280,0:POKE53281,6
50 PRINT"SUPER DISK EDITOR"
60 PRINT"[153]0   = RESET"
70 PRINT"1   = SCRATCH"
80 PRINT"2   = NEW "
90 PRINT"3   = DISK STATUS "
100 PRINT"4   = DIRECTORY "
110 PRINT"5   = COPY  "
120 PRINT"6   = RENAME "
130 PRINT"7   = VALIDATE "
140 PRINT"8   = INITIALIZE "
150 PRINT"9   = NEWHEADER "
160 PRINT"@   = D. LADESCHUTZ
170 [153]"*   = D. LISTSCHUTZ
180 PRINT"E   = PROGRAMM ENDE
190 [153]"L   = PROGRAMM LADEN";
195 [153]"A   = ',8:'ANHAENGEN";
196 [153]"D   = DRUCKEN DIR. "
197 [153]"V   = VIEW BAM"
200 [153]"SYSFUER ROCKFORD-FD"
210 [153]"JOERG KRANZ AND"
220 [153]"ANDRE KRUGENBERG"
230 [153]"1987/1994"
300 [161]A$:[139]A$[178]""[167]300
310 [139]A$[178]"0"[167]1000
320 [139]A$[178]"1"[167]1100
330 [139]A$[178]"2"[167]1200
340 [139]A$[178]"3"[167]1300
350 [139]A$[178]"4"[167]1400
360 [139]A$[178]"5"[167]1500
370 [139]A$[178]"6"[167]1600
380 [139]A$[178]"7"[167]1700
390 [139]A$[178]"8"[167]1800
400 [139]A$[178]"9"[167]1900
410 [139]A$[178]"@"[167]2100
420 [139]A$[178]"*"[167]2300
430 [139]A$[178]"E"[167]2500
440 [139]A$[178]"L"[167]3700
450 [139]A$[178]"A"[167]2800
460 [139]A$[178]"D"[167]AA[178]2:[137]1400
470 [139]A$[178]"V"[167]3300
500 [139][198](A$)[179]256[167][138]
1000 [153]"LOAD":[153]"RESET JWAITA/NWAITEIN"
1010 [161]A$:[139]A$[178]""[167]1010
1020 [139]A$[178]"J"[167][158]64738
1030 [139]A$[178]"N"[167][138]
1100 [153]"LOADNAME DES ZU LOESCHENDEN FILES:
1110 INPUTA$
1120 OPEN1,8,15,"S:"+A$
1130 CLOSE1,8,15:GOTO1300
1200 PRINT"[147]"
1210 INPUT"DISK NAME";A$
1220 INPUT"ID";B$
1230 IFLEN(A$)>15THENPRINT"DISK NAME ZU LANG":FORT=1TO1000:NEXT:GOTO1200
1240 OPEN1,8,15,"N:"+A$+","+B$
1250 CLOSE1,8,15
1260 GOTO1300
1300 PRINT"[147]":OPEN15,8,15
1301 :GET#15,AA$:PRINTAA$;:IFST<>64THEN1301
1310 CLOSE15:POKE198,0:WAIT198,1
1320 RUN
1400 OPEN1,8,0,"$":GET#1,A$,B$:GET#1,A$,B$:GET#1,A$,B$:IFAA=0THEN1405
1401 INPUT"[147]DRUCKER GERAET NR. 4-5";II
1402 INPUT"SEKUNDAERADRESSE";UI
1403 OPENII,UI
1405 PRINT"[147]";
1410 IFA$=""THENA$=CHR$(0)
1420 PRINT"[155]":IFB$=""THENB$=CHR$(0)
1421 IFAA=2THENPRINT#4," ";
1430 BL=ASC(A$)+256*ASC(B$):PRINTBLTAB(3);:FORT=1TO25:GET#1,A$:PRINTA$;
1431 IFAA=2THENPRINT#4,A$;
1432 NEXT
1433 IFAA=2THENPRINT#4,""
1435 PRINT""
1440 GET#1,A$,A$,A$:GET#1,A$:IFA$=""THENA$=CHR$(0)
1450 GET#1,B$:IFB$=""THENB$=CHR$(0)
1460 IFST<>0THEN1492
1470 BL=ASC(A$)+256*ASC(B$):PRINTBLTAB(3);:IFAA=2THENPRINT#4,BL;
1480 FORT=1TO27:GET#1,A$
1481 PRINTA$;
1482 IFAA=2THENPRINT#4,A$;
1485 NEXT:X=X+1:PRINT:
1486 IFAA=2THENPRINT#4,""
1487 GOSUB1493
1490 GOTO1440
1492 CLOSE1:GOTO1495
1493 IFPEEK(198)=0THENRETURN
1494 IFZ=999THENRETURN
1495 IFAA=2THENPRINT#4,"[158]"X-1 "[196][201][211][203] [197][201][206][212][210][193][199][213][206][199][197][206]!":
1496 PRINT"[158]"X-1 "DISK EINTRAGUNGEN!":POKE198,0:WAIT198,1:AA=0:GOTO1300
1500 REM
1510 PRINT"[147]COPY NAME":INPUTA$
1520 PRINT"PROGRAMM NAME":INPUTB$
1530 OPEN15,8,15,"C:"+A$+"="+B$
1540 CLOSE15:GOTO1300
1600 PRINT"[147]"
1610 PRINT"NEUER NAME":INPUTA$
1620 PRINT"ALTER NAME":INPUTB$
1630 OPEN15,8,15,"R:"+A$+"="+B$:CLOSE15:GOTO1300
1700 OPEN15,8,15,"V":CLOSE15:GOTO1300
1800 OPEN15,8,15,"I":CLOSE15:GOTO1300
1900 PRINT"[147]DISK EINLEGEN UND 'TASTE' DRUEKEN"
1910 POKE198,0:WAIT198,1
1920 OPEN1,8,15,"I":OPEN2,8,2,"#"
1925 PRINT#1,"U1 2 0 18 0 ":PRINT#1,"B-P 2 144":AA$=""
1930 FORT=0TO15:GET#2,A$:AA$=AA$+A$:NEXT
1935 PRINT"DISK NAME=[158] ";AA$
1940 PRINT#1,"B-P 2 162":AA$="":FORT=1TO5:GET#2,A$:AA$=AA$+A$:NEXT
1945 PRINT"ID       =[158] ";AA$
1950 PRINT"N[146]AME,I[146]D AENDERN ODER Z[146]URUECK ?":POKE198,0
1955 :GETA$:IFA$=""THEN1955
1960 IFA$="N"THEN2000
1970 IFA$="I"THEN1975
1971 IFA$="Z"THEN1300
1975 PRINT#1,"U2 2 0 18 0":INPUT" NEUE ID ";A$
1985 PRINT#1,"B-P 2 162":FORT=1TOLEN(A$):PRINT#2,MID$(A$,T,1);:NEXT
1986 FORT=LEN(A$)TO5:PRINT#2,CHR$(160);:NEXT
1990 PRINT#1,"U2 2 0 18 0":PRINT#1,"I":CLOSE2:CLOSE1:GOTO1300
2000 PRINT#1,"U1 2 0 18 0":INPUT"NEUER NAME ";A$
2010 IFLEN(A$)>16THENPRINT"NAME ZU LANG":FORT=1TO1000:NEXT
2020 PRINT#1,"B-P 2 144":FORI=1TOLEN(A$):PRINT#2,MID$(A$,I,1);:NEXT
2030 IFLEN(A$)=5THEN2060
2040 FORI=1TOLEN(A$):PRINT#2,CHR$(160);:NEXT
2060 PRINT#1,"U2 2 0 18 0"
2070 PRINT#1,"I":CLOSE2:CLOSE1:GOTO1300
2100 PRINT"[147]BITTE WAEHLEN SIE !"
2110 PRINT"S[146]CHUETZEN"
2115 PRINT"F[146]REIGEBEN"
2120 GETA$:IFA$=""THEN2120
2130 IFA$="S"THEN2150
2140 IFA$="F"THEN2200
2150 REM
2151 OPEN1,8,15,"I":OPEN2,8,2,"#":X=1:
2155 PRINT#1,"U1 2 0 18"X
2160 PRINT#1,"B-P 2 0":GET#2,A$:IFA$=""THENA$=CHR$(0)
2170 GET#2,B$:IFB$=""THENB$=CHR$(0)
2175 A=ASC(A$):B=ASC(B$):IFA=0ANDB=255THEN2186
2180 IFA=18ANDB=1THEN2198
2185 X=B:GOTO2155
2186 PRINT#1,"B-P 2 0":PRINT#2,CHR$(18);CHR$(1);
2190 PRINT#1,"U2 2 0 18"X:PRINT#1,"I":CLOSE2:CLOSE1:GOTO1300
2198 PRINT"[144]DIRECTORY IST SCHON GESCHUETZT":FORT=1TO1000:NEXT:CLOSE1:CLOSE2:
2199 GOTO1300
2200 OPEN1,8,15,"I":OPEN2,8,2,"#":X=1:
2201 PRINT#1,"U1 2 0 18"X:PRINT#1,"B-P 2 0"
2210 GET#2,A$:IFA$=""THENA$=CHR$(0)
2220 GET#2,B$:IFB$=""THENB$=CHR$(0)
2230 A=ASC(A$):B=ASC(B$)
2240 IFA=18ANDB=1THEN2260
2250 IFA=0ANDB=255THEN2280
2255 X=B:GOTO 2201
2260 PRINT#1,"B-P 2 0":PRINT#2,CHR$(0);CHR$(255);:PRINT#1,"U2 2 0 18"X
2270 PRINT#1,"I":CLOSE1:CLOSE2
2280 PRINT"[147]DIRECTORY IST FREI":FORT=1TO1500:NEXT:GOTO1300
2300 PRINT"[147]DIRECTORY LISTSCHUTZ"
2310 PRINT"SIND SIE SICHER ?"
2320 GETA$:IFA$=""THEN2320
2330 IFA$="J"THENGOTO2350
2340 IFA$="N"THENPRINT"[147]O.K. DANN NICHT !":FORT=1TO1500:NEXT:GOTO1300
2345 GOTO2320
2350 PRINT"[147] O.K...  LETS GO !"
2351 Z=999:OPEN1,8,15,"I":OPEN2,8,2,"#":PRINT#1,"U1 2 0 18 0"
2355 PRINT#1,"B-P 2 144"
2356 PRINT#2,CHR$(20)CHR$(20)CHR$(20)CHR$(34)CHR$(100)CHR$(20)CHR$(31)CHR$(204);
2360 FORT=1TO20:PRINT#2,CHR$(0);:NEXT
2370 PRINT#1,"U2 2 0 18 0":PRINT#1,"I":CLOSE2:CLOSE1
2380 POKE53270,8:GOTO1300
2500 PRINT"[147]":NEW
2800 PRINT"[147]":A=18:B=1
2810 PRINT"AN WELCHES PROGRAMM SOLL ',8:'          ANGEHAENGT WERDEN"
2820 PRINT"[158]J[146]A/N[146]EIN"
2830 OPEN15,8,15:OPEN2,8,2,"#":FORI=1TO8:T$(I)="":NEXT
2835 IFA=0ORB=0THENRUN
2840 PRINT#15,"U1 2 0";A;B:PRINT#15,"B-P 2 0":GET#2,A$,B$:A1=ASC(A$+CHR$(0))
2850 B1=ASC (B$+CHR$(0)):W=4:FORT=1TO8:PRINT#15,"B-P 2";W-2
2860 GET#2,P$:P=ASC(P$+CHR$(0)):IFP<>130ANDP<>194THEN2890
2870 FORY=1TO16:PRINT#15,"B-P 2";Y+W:GET#2,C$:T$(T)=T$(T)+C$:NEXT:
2880 W=W+32
2890 NEXTT
2900 W=17:FORT=1TO8:IFT$(T)=""THEN2950
2910 PRINT"[147]"T$(T)
2920 GETS$:IFS$=""THEN2920
2930 IFS$="J"THEN3000
2931 IFS$="N"THEN2950
2940 GOTO2920
2950 W=W+32:NEXTT:IFF=1THENPRINT#15,"U2 2 0";A;B
2960 A=A1:B=B1:CLOSE2:CLOSE15
2970 GOTO2830
3000 F=1:PRINT#15,"B-P 2";W:PRINT#2,CHR$(160);",8:":GOTO2950
3300 X$="":OPEN15,8,15,"I0"
3310 PRINT"[147]   12345678901234567890123456789012345"
3320 PRINT"[153]    TRACK  1-35     + = BELEGT - = FREI [144]"
3330 DEFFNA(Z)=2^(S-INT(S/8)*8)AND(SB(INT(S/8)))
3340 OPEN2,8,2,"#"
3341 PRINT#15,"B-P:2,144":FORT=1TO18:GET#2,A$:N$=N$+A$:NEXT:PRINT#15,"B-P:2,1"
3342 PRINT"[158]DISK NAME:";N$;"[144]":PRINT#15,"U1:2,0,18,0
3350 [129]I[178]20[164]0[169][171]1:[153]I:[130]
3360 [129]T[178]1[164]35:X[178]T[170]4:[141]3400:[130]:[137]3520
3400 [161]#2,SC$,A$,B$,C$
3410 TS[178]TS[170][198](SC$[170][199](0))
3420 SB(0)[178][198](A$[170][199](0))
3430 SB(1)[178][198](B$[170][199](0))
3440 SB(2)[178][198](C$[170][199](0))
3450 [153]""[170][200](X$,X[171]1)[170]"CMD";
3460 [139]T[177]24[175]S[178]18[167][153]" ";:[137]3500
3470 O1$[178]"LIST+":O2$[178]"LIST-":[139]T[178]18[167]O1$[178]"+WAIT":O2$[178]"-WAIT"
3475 [129]S[178]0[164]20
3480 [139]T[179]18[167]3495
3485 [139]T[177]30[175]S[178]17[167][153]" ";:[137]3500
3487 [139]T[177]24[175]S[178]18[167][153]" ";:[137]3500
3489 [139]T[177]17[175]S[178]19[167][153]" ";:[137]3500
3491 [139]T[177]17[175]S[178]20[167][153]" ";:[137]3500
3495 [139][165]A(S)[178]0[167][153]O1$;:[137]3500
3498 [153]O2$;
3500 [153]"ONCMD";
3510 [130] :[142]
3520 [153]"SYSBLOCKS FREE:";TS[171]18;"            "
3521 [161]A$:[139]A$[178]""[167]3521
3530 [160]2:[160]15:[137]1300
3700 [153]"LOAD"
3710 [153]"PROGRAMM NAME":[133]A$
3720 [153]"LOADLOAD"[170][199](34)[170]A$[170][199](34)",8"
3725 [153]"RUN"
3730 [151]198,4:[151]631,19:[151]632,13:[151]633,13:[151]634,13